> tab_3_001 <- matrix(c(170, 233, 132.99, 270.01), ncol = 2)
> chisq.test(tab_3_001)

   Pearson's Chi-squared test with Yates' continuity correction

data:  tab_3_001
X-squared = 6.8577, df = 1, p-value = 0.008826

>  tab_3_002 <- matrix(c(264,239,165.99,337.01), ncol = 2)
> chisq.test(tab_3_002)

   Pearson's Chi-squared test with Yates' continuity correction

data:  tab_3_002
X-squared = 38.2246, df = 1, p-value = 6.305e-10

>  tab_4_001 <- matrix(c(1607,4510,1223.4,4893.6), ncol = 2)
> chisq.test(tab_4_001)

   Pearson's Chi-squared test with Yates' continuity correction

data:  tab_4_001
X-squared = 67.2847, df = 1, p-value = 2.35e-16

>  tab_4_002 <- matrix(c(1679,6036,1543,6172), ncol = 2)
> chisq.test(tab_4_002)

   Pearson's Chi-squared test with Yates' continuity correction

data:  tab_4_002
X-squared = 7.1493, df = 1, p-value = 0.0075